VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CEmpleado"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'---------------------------------------------------------------------------------------
' Module    : CEmpleado
' DateTime  : 30/11/2011 12:07
' Author    :
' Purpose   : Clase Control Empleado
'---------------------------------------------------------------------------------------
Option Explicit
Private cempleado As New lempleado
Public Sub login(bean As bempleado)
Dim valor As Integer
valor = cempleado.login(bean)
Select Case valor
Case UtilConstantes.OPT_LOGIN
    'frmTablero.fraMesas.Enabled = True
    frmTablero.lblEmpleado = sNomEmpleadoActivo
Case UtilConstantes.OPT_LOGIN_CLAVE_INCORRECTA
    utilMensaje.muestraMensaje ClaveIncorrecta
Case UtilConstantes.OPT_LOGIN_CUENTA_DESHABILITADA
    utilMensaje.muestraMensaje CuentaDeshabilitada
End Select
End Sub
